home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 15 / Tiger_Disk_015_19xx_Tiger-Crew-Disk_de_Side_A.d64 / basic scroller (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  400b  |  11 lines
  1. 10 a$="basic-scroller written 1994 by madrom!"
  2. 15 :
  3. 20 rem *** initialisieren
  4. 25 a=1:e=199:printchr$(147):d=len(a$):poke53281,.:poke53280,.
  5. 30 c=.:fori=41960to41967:poke820+c,peek(i):c=c+1:next:poke824,200:poke827,96
  6. 35 :
  7. 40 rem *** scroll-main-routine
  8. 45 e=e-.5:poke53270,e:on-(e<>192)goto45:e=199:poke90,1:poke91,4:poke88,.
  9. 50 poke89,4:poke782,.:poke53265,.:poke53270,e:sys820:poke53265,27:poke781,.
  10. 55 poke782,39:sys58636:printmid$(a$,a,1):a=a+1:on-(a-3<>d)goto45:a=1:goto45
  11.